perm filename LTR[D,LES]6 blob
sn#124041 filedate 1974-10-09 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .DEVICE XGP
C00006 ENDMK
C⊗;
.DEVICE XGP
.page frame 52 high 80 wide
.title area heading lines 1 to 3
.area text lines 4 to 52
.FONT 1 "BASL30"; FONT 2 "BASI30"; FONT 3 "BASB30"; FONT 5 "NGB25"
.FONT 6 "STA200.FNT[XGP,SYS]"
.ODDLEFTBORDER←EVENLEFTBORDER←1000;
.TURN ON "%{α"
.AT "ffi" ⊂ IF THISFONT ≤ 3 THEN "≠" ELSE "fαfαi" ⊃;
.AT "ffl" ⊂ IF THISFONT ≤ 3 THEN "α∞" ELSE "fαfαl" ⊃;
.AT "ff" ⊂ IF THISFONT ≤ 3 THEN "≥" ELSE "fαf" ⊃;
.AT "fi" ⊂ IF THISFONT ≤ 3 THEN "α≡" ELSE "fαi" ⊃;
.AT "fl" ⊂ IF THISFONT ≤ 3 THEN "∨" ELSE "fαl" ⊃;
.MACRO FAC ⊂FILL ADJUST COMPACT ⊃
.MACRO FAD ⊂FILL ADJUST COMPACT DOUBLE SPACE; PREFACE 2 ⊃
.MACRO LTR(name,dat) ⊂
.nofill
.place HEADING
%6S%5 Artificial Intelligence Laboratory, STANFORD UNIVERSITY, Stanford, California 94305
.PLACE TEXT;
.SELECT 5; if length ("dat") > 2 then date←"dat";
.once turn on "→"
%5Telephone 415-497-4202→{date}
.SKIP 3; SELECT 1
name
.EVERY HEADING("%3NAME, {date}",,Page {Page})
.xgenlines←-3;
.⊃
.MACRO ARPA ⊂}Information Processing Techniques
Defense Advanced Research Projects Agency
1700 Wilson Boulevard
Arlington, Virginia 22209
.⊃
.MACRO LDE ⊂ GROUP BEGIN SKIP 2; NOFILL
Sincerely,
.SKIP 3
Lester D. Earnest
Executive Officer
.END APART ⊃
.MACRO MEMO(sink,source,subj) ⊂
.turn on "∂←→"; nofill
.place heading
%6S∂1←%3Stanford Artificial Intelligence Laboratory→Tel. ext. 74971
.place text
←%3MEMORANDUM→{DATE}
.skip;fill;indent 0,8;
%3To:%1∂9sink
%3From:∂9%1source
%3Subject:∂9%1subj
.indent 0,0; turn off "←→";
.EVERY HEADING("%3"&"subj",,Page {Page})
.xgenlines←-3;
.⊃
.macro cb ⊂ ONCE CENTER; SELECT 3; ⊃
.macro BS ⊂ BEGIN INDENT 0,3; PREFACE SPREAD-1; NOJUST ⊃
.MACRO BC ⊂ BEGIN PREFACE SPREAD-1; CRBREAK; INDENT 0,3; NOJUST ⊃
.macro cb(head) ⊂ if lines<5 then next page else skip; once center; select 3
head
.⊃
.macro boldit ⊂ turn on "%";
. at """" ⊂ (if thisfont=1 then "%3" else "%1") ⊃;
. at "<" ⊂"%2"⊃; at ">" ⊂"%1"⊃;
.⊃
.macro OI ⊂ once boldit; ⊃;
.portion main
.page←1